home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / utilities / catedit1_2a.lha / CatEdit / Install < prev   
Encoding:
Text File  |  1995-01-28  |  4.4 KB  |  207 lines
  1. ; Installer installation script for CatEdit
  2. ;$VER:Install 38.8 (8.8.94)
  3.  
  4. (set @default-dest "")
  5.  
  6. (set catedit "CatEdit")
  7. (set catalogdir "Catalogs/")
  8. (set reqtoolslib "Libs/reqtools.library")
  9.  
  10. ;================================================================================
  11. ; English strings
  12.  
  13. (set #bad-kick
  14.   (cat "You must have Kickstart 2.04 or higher installed to use CatEdit!")
  15. )
  16.  
  17. (set #install
  18.   (cat "\nCatEdit installation\n\n\n"
  19.        "This script installs CatEdit 1.2a\n"
  20.        "on your Amiga.\n\n\n\n"
  21.        "CatEdit © 1993, 1994, 1995 Rafael D'Halleweyn\n"
  22.        "All rights reserved\n\n"
  23.        "(reqtools.library © Nico François)")
  24. )
  25.  
  26. (set #update
  27.   (cat "\nCatEdit installation\n\n\n"
  28.        "This script updates CatEdit\n"
  29.        "to version 1.2a.\n\n\n\n"
  30.        "CatEdit © 1993, 1994, 1995 Rafael D'Halleweyn\n"
  31.        "All rights reserved\n\n"
  32.        "(reqtools.library © Nico François)")
  33. )
  34.  
  35. (set #where-catedit
  36.   (cat "In wich drawer should CatEdit be installed?")
  37. )
  38.  
  39. (set #copying-catedit
  40.   (cat "Copying CatEdit")
  41. )
  42.  
  43. (set #which-language
  44.   (cat "\nWhich languages should be installed?")
  45. )
  46. (set #which-language-help
  47.   (cat "\nThe Amiga can be operated in many different languages. "
  48.        "If you want CatEdit to use the same language as the Amiga "
  49.        "Workbench a catalog file must be copied to your harddisk "
  50.        " for each language supported.\n\n"
  51.        "To reduce the amount of space consumed by the language "
  52.        "files, you can select to have only the files of specific "
  53.        "languages copied.\n\n"
  54.        "Simply check the boxes of the languages you wich to have "
  55.        "available on your system.\n\n")
  56. )
  57.  
  58. (set #copying-reqtools
  59.   (cat "Copying reqtools.library to LIBS:...")
  60. )
  61. (set #copying-reqtools-help
  62.   (cat "CatEdit requires the reqtools.library in your LIBS: drawer\n\n")
  63. )
  64.  
  65. ;================================================================================
  66. ; make sure we are running under a 2.04 ROM
  67.  
  68. (if (< (/ (getversion) 65536) 37)
  69.   (
  70.     (abort #bad-kick)
  71.   )
  72. )
  73.  
  74. ;================================================================================
  75. ;
  76.  
  77. (user 0)
  78. (run 'SetEnv cateditpath "`C/FindCommand CatEdit`"'
  79.   (safe)
  80. )
  81. (set catedit-dest (pathonly (getenv "cateditpath")))
  82.  
  83. (complete 5)
  84.  
  85. (user 1)
  86. (message
  87.   (if (= catedit-dest "")
  88.     (#install)
  89.     (#update)
  90.   )
  91. )
  92. (welcome)
  93. (set old_level @user-level)
  94.  
  95. (if (= catedit-dest "")
  96.   (
  97.     (user 2)
  98.     (set catedit-dest
  99.       (askdir
  100.         (prompt #where-catedit)
  101.         (help @askdir-help)
  102.         (default "SYS:Tools")
  103.       )
  104.     )
  105.     (user old_level)
  106.   )
  107. )
  108.  
  109. (copylib
  110.   (prompt "\n" #copying-catedit)
  111.   (help @copylib-help)
  112.   (source catedit)
  113.   (dest catedit-dest)
  114.   (confirm)
  115. )
  116.  
  117. (complete 50)
  118.  
  119. (if (NOT (exists (tackon catedit-dest "CatEdit.info")))
  120.   (
  121.     (copyfiles
  122.       (source (cat catedit ".info"))
  123.       (dest catedit-dest)
  124.     )
  125.     (tooltype
  126.       (dest "CatEdit")
  127.       (noposition)
  128.     )
  129.   )
  130. )
  131.  
  132. (user old_level)
  133.  
  134. (complete 55)
  135.  
  136. (if (exists "SYS:Locale")
  137.   (
  138.     (if (exists "LOCALE:")
  139.       (
  140.         (user 2)
  141.         (set lang
  142.           (askoptions
  143.             (prompt #which-language)
  144.             (help #which-language-help @askoptions-help)
  145.             (choices
  146.               "Dansk"
  147.               "Deutsch"
  148.               "English"
  149.               "Español"
  150.               "Français"
  151.               "Italiano"
  152.               "Nederlands"
  153.               "Polski"
  154.               "Svenska")
  155.             (default 0)
  156.           )
  157.         )
  158.         (user old_level)
  159.         (set n 0)
  160.         (while (set language
  161.             (select n
  162.               "dansk"
  163.               "deutsch"
  164.               "english"
  165.               "español"
  166.               "français"
  167.               "italiano"
  168.               "nederlands"
  169.               "polski"
  170.               "svenska"
  171.               "")
  172.             )
  173.           (
  174.             (if (IN lang n)
  175.               (
  176.                 (if (<> "english" language)
  177.                   (
  178.                     (makedir (tackon "LOCALE:Catalogs" language))
  179.                     (copyfiles
  180.                       (source (tackon (tackon catalogdir language) "catedit.catalog"))
  181.                       (dest (tackon "LOCALE:Catalogs/" language)))
  182.                   )
  183.                 )
  184.               )
  185.             )
  186.             (set n (+ n 1))
  187.           )
  188.         )
  189.       )
  190.     )
  191.   )
  192. )
  193.  
  194. (complete 80)
  195.  
  196. (user old_level)
  197. (copylib
  198.   (prompt "\n" #copying-reqtools)
  199.   (help #copying-reqtools-help @copylib-help)
  200.   (source reqtoolslib)
  201.   (dest "LIBS:")
  202.   (confirm)
  203. )
  204.  
  205. (complete 100)
  206. (exit)
  207.